home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1996 September / JCSM Shareware Collection (JCS Distribution) (September 1996).ISO / grapprog / pcdraft2.zip / PCDRAFT2.EXE / CASE.SCR < prev    next >
Text File  |  1994-03-31  |  1KB  |  98 lines
  1. ;
  2. ;    test of new PIX features: pop up text boxes...
  3. ;
  4. popup (1)(8,3,45,5)
  5. pgotoxy (1) (10,1)
  6. text this is popup window one
  7. ;
  8. popup (2)(10,5,45,7)
  9. pgotoxy (2) (10,1)
  10. text this is popup window two
  11. ;
  12. popup (3)(10,10,60,14)
  13. tgotoxy (15,12)
  14. text this is window three
  15. ;
  16. ;
  17. ;    testing case:
  18. ;
  19. popup (4)(20,3,50,9)
  20. pgotoxy (4) (5,1)
  21. text 1 - case one
  22. pgotoxy (4) (5,2)
  23. text 2 - case two
  24. pgotoxy (4) (5,3)
  25. text 3 - case three
  26. pgotoxy (4) (5,4)
  27. text 4 - case four
  28.  
  29. getkey A
  30.  
  31. popdown (4)
  32. popup (5)(20,10,50,12)
  33. pgotoxy (5) (10,1)
  34.  
  35. case A
  36. 1 jmp caseone
  37. 2 jmp casetwo
  38. 3 jmp casethree
  39. 4 jmp casefour
  40. endc
  41. jmp badcases
  42.  
  43. caseone
  44. text this is case 1
  45. jmp endcases
  46.  
  47. casetwo
  48. text this is case 2
  49. jmp endcases
  50.  
  51. casethree
  52. text this is case 3
  53. jmp endcases
  54.  
  55. casefour
  56. text this is case 4
  57. jmp endcases
  58.  
  59. badcases
  60. text bad selection
  61.  
  62. endcases
  63. wait (5)
  64. popdown (5)
  65.  
  66. popup (4)(20,3,50,9)
  67. pgotoxy (4) (5,1)
  68. text B - box
  69. pgotoxy (4) (5,2)
  70. text C - circle
  71. pgotoxy (4) (5,3)
  72. text R - rectangle
  73. pgotoxy (4) (5,4)
  74. text L - line
  75.  
  76. getkey A
  77. popdown (4)
  78.  
  79. case A
  80. B box    (300,100,600,10)
  81. C circle (300,100,300,10)
  82. R rectangle (400,100,300,80)
  83. L line   (300,100,300,10)
  84. endc
  85.  
  86. wait (5)
  87. popdown (5)
  88. wait (3)
  89. popdown (3)
  90. wait (3)
  91. popdown (2)
  92. wait (3)
  93. popdown (1)
  94.  
  95. tgotoxy (30,12)
  96. text Press any key to exit
  97.  
  98.